inherit CometDimitri_LM_LP Logical_presentation

#___________________________________________________________________________________________________________________________________________
method CometDimitri_LM_LP constructor {name descr args} {
 this inherited $name $descr
# Adding some physical presentations 
 this Add_PM_factories [Generate_factories_for_PM_type [list {CometDimitri_PM_P_U_basic Ptf_ALL} \
                                                       ] $objName]

 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometDimitri_LM_LP [P_L_methodes_set_CometDimitri] {} {$this(L_actives_PM)}
Methodes_get_LC CometDimitri_LM_LP [P_L_methodes_get_CometDimitri] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
proc P_L_methodes_set_CometDimitri_COMET_RE {} {return [P_L_methodes_set_CometDimitri]}
Generate_LM_setters CometDimitri_LM_LP [P_L_methodes_set_CometDimitri_COMET_RE]

#___________________________________________________________________________________________________________________________________________


